home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Scene 96
/
Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso
/
misc
/
coding
/
e_os208
/
exampl12
/
eos.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-08-01
|
819b
|
34 lines
var
f : text;
s : string;
begin
if paramstr(1)='' then
begin
write ('Enter the name of reality :) eos file : ');
read(s);
assign (f,s+'.asm');
end else assign (f,paramstr(1)+'.asm');
rewrite (f);
writeln (f);
writeln (f,'Locals');
writeln (f,'.386');
writeln (f,'CODE32 SEGMENT PUBLIC PARA ''CODE'' USE32');
writeln (f,'ASSUME CS:CODE32,DS:CODE32,ES:CODE32');
writeln (f);
writeln (f,'INCLUDE ..\RESOURCE\EOS.INC');
writeln (f);
writeln (f,'Start32:');
writeln (f); writeln (f); writeln (f);
writeln (f,' mov ax,4c00h');
writeln (f,' int 21h');
writeln (f);
writeln (f,'CODE32 ENDS');
writeln (f);
writeln (f,'END');
close (f);
end.